home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / PGPDecrypt.intui < prev    next >
Text File  |  1995-08-27  |  1KB  |  65 lines
  1. /*
  2.  
  3.    $VER: PGPDecrypt.intui 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.owl.de)
  7.  
  8.    Function:
  9.     decrypts the PGP message show in IntuiNews's message window.
  10.  
  11.    History:
  12.     0.1   initial version
  13.     0.2   decided to get rid of this strange AMOK style header and
  14.           went back to my good old standard
  15.     0.3   uses new "EXEC" command
  16.     1.0   released with IntuiNews 1.3
  17.  
  18.    Requires:
  19.     PGP 2.6ui (2.3a didn't work in every case) in command path of ARexx
  20.  
  21.    Example for "ums.config":
  22.     ( IntuiNews.Rexx
  23.     ...
  24.         "MessageWindow           F4      PGPDecrypt.intui\n"
  25.     ...
  26.     )
  27.  
  28. */
  29.  
  30. /* Exit if Message Window is not active. */
  31.  
  32. OPTIONS RESULTS
  33.  
  34. STATUS
  35. IF RESULT~="MESSAGE" THEN EXIT 5
  36.  
  37. /* Ask the user for the PGP phrase. */
  38.  
  39. 'GETSTRING TITLE "PGP Decrypt" LABEL "_Phrase" SECRET'
  40. IF RESULT="RESULT" THEN EXIT 5
  41. Phrase=RESULT
  42.  
  43. /* We get IntuiNews's message number, ... */
  44.  
  45. GETMSGNUM
  46. MsgNum=RESULT
  47.  
  48. /* ... save the message, ... */
  49.  
  50. 'SAVEMSGBODY' MsgNum 'TO T:IntuiNews.pgp'
  51.  
  52. /* ... call PGP, ... */
  53.  
  54. 'EXEC SetEnv PGPPASS "'||Phrase||'"'
  55. 'EXEC pgp +BATCHMODE T:IntuiNews.pgp -o T:IntuiNews.asc'
  56. 'EXEC UnSetEnv PGPPASS'
  57.  
  58. /* ... and show the decrypted message. */
  59.  
  60. 'REPLACEMSGBODY WITH T:IntuiNews.asc'
  61.  
  62. /* cleanup */
  63.  
  64. 'EXEC Delete T:IntuiNews.(asc|pgp) QUIET'
  65.